home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Workbench / MagicWB2.1p / Programs / Misc / DOpus_IconUpdateD.rexx next >
OS/2 REXX Batch file  |  1998-06-24  |  4KB  |  93 lines
  1. /* Dieses Script dient zur Vereinfachung des IconUpdate-Prozesses für
  2. Directory-Opus-Benutzer. Hinweise: IconUpdate muß sich im C: Verzeichnis 
  3. befinden. Zuerst werden immer die zu ändernden Icons angewählt, dann das 
  4. MagicWB-Icon, das als Quelle für diese Icons dient. Daraufhin wird das 
  5. ARexx-Script durch Betätigen eines Buttons in DOpus gestartet und 
  6. verrichtet seine Arbeit. Viel Spaß! */
  7.  
  8.  
  9. ADDRESS 'DOPUS.1'                   /* legt aktuellen Port fest */
  10. OPTIONS RESULTS                     /* Ausgabe der Rückgabewerte wird festgelegt */
  11. CHECKABORT                          /* überprüft Mausknöpfe auf Abbreuch  */
  12. BUSY ON                             /* schaltet Mauszeiger auf -Busy- */
  13.  
  14.  
  15. STATUS 3                            /* ermittelt aktuelles Femster */
  16. window = RESULT                     /* Variable -window- wird ausgelesen */
  17. STATUS 9 window                     /* holt die Anzahl sel.Files aus dem akt.Fenster */
  18. anzahl = RESULT                     /* Variable -anzahl- wird ausgelesen */
  19. 'STATUS 13 -1'                      /* holt aktuellen Pfadnamen */
  20. path_source = RESULT                /* bildet die Variable -path_source- */
  21.  
  22.  
  23. IF anzahl > 1 THEN DO               /* wenn mehr als ein MWB-Icon dann Protesttext */
  24.   TOPTEXT 'FEHLER: Mehr als EIN MagicWB-Icon kann NICHT als Quelle verwendet werden!'
  25.   BEEP
  26.   BUSY OFF
  27.   EXIT                              /* Abbruch */
  28. END
  29.  
  30.  
  31. GETSELECTEDFILES                    /* Holt aktuellen Filenamen aus aktivem Fenster */
  32. files_a = RESULT                    /* Variable -files- wird ausgelesen  */
  33.  
  34. IF files_a = 'RESULT' THEN DO       /* Wenn kein Name erfasst ,Abbruch */
  35.  TOPTEXT 'FEHLER: Sie müssen sowohl Quell- als auch Ziel-Icons angeben!'
  36.  BEEP
  37.  BUSY OFF                           /* schaltet normalen Mauszeiger an */
  38.  EXIT
  39. END
  40.  
  41.  
  42. PARSE VAR files_a icon_new files_a  /* Füllen der Variablen -icon_new */
  43.  
  44.  
  45. OTHERWINDOW                         /* wechselt ins andere Fenster */
  46.  
  47.  
  48. STATUS 3                            /* ermittelt aktuelles Femster */
  49. window = RESULT                     /* Variable -window- wird ausgelesen */
  50. STATUS 9 window                     /* holt die Anzahl sel.Files aus dem akt.Fenster */
  51. anzahl = RESULT+1                   /* Variable -anzahl- wird ausgelesen +1 wegen DO-END */
  52. 'STATUS 13 -1'                      /* holt aktuellen Pfadnamen */
  53. path_destination = RESULT           /* bildet die Variable -path_destination- */
  54.  
  55.  
  56.  
  57. GETSELECTEDFILES
  58. files_b = RESULT
  59.  
  60. IF files_b = "RESULT" THEN DO
  61.  TOPTEXT 'FEHLER: Sie müssen sowohl Quell- als auch Ziel-Icons angeben!'
  62.  BEEP
  63.  BUSY OFF                           /* schaltet normalen Mauszeiger an */
  64.  EXIT
  65. END
  66.  
  67.  
  68. n = anzahl                          /* n= Anzahl der Durchläufe und selektierter Files */
  69. DO UNTIL n = 1                      /* Schleife zur Abarbeitug der Einträge aus Fenster */
  70.     CHECKABORT                        /* prüft auf gedrückte Maustasten */
  71.     ergebnis = RESULT                 /* Variable -ergebnis- wird ausgelesen */
  72.     IF ergebnis = 1 THEN DO           /* wenn Maustasten=ja ,dann Abbruch */
  73.     TOPTEXT 'Operation durch User ABGEBROCHEN!'   /* Userinfo */
  74.     BUSY OFF                        /* wechselt Mauszeigerstatus */
  75.     EXIT
  76.     END
  77.   n = n-1                           /* verringert Zäler -1 */
  78.   PARSE VAR files_b icon_old.n files_b  /* holt alle Namen aus aktueller Fenstervar.files_b*/
  79.  
  80.   TOPTEXT 'Update altes Icon ->' icon_old.n 'mit ->' icon_new  /* Userinfo durch Toptext */
  81.  
  82.   ADDRESS COMMAND IconUpdate TCSDNW path_source||icon_new path_destination||icon_old.n  /* übergibt Variablen an DOS-Komanndo */
  83. END
  84.  
  85.  
  86. STATUS 3
  87. window = RESULT
  88. RESCAN window
  89.  
  90. OTHERWINDOW
  91.  
  92. BUSY OFF
  93.